home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
001a
/
ezzcomm.zip
/
OMENMAIL.T
< prev
next >
Wrap
Text File
|
1991-02-16
|
1KB
|
35 lines
if !c return
: EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
: Licensed for use at your own risk without fee. Altered versions,
: when distributed, must be clearly marked as altered and accompanied
: by the originals.
:
: Send an Outbound Omen Technology Mail File
: 1st line of file is the person to whom it is addressed
: Remainder of file is the memo
display inhibit;open -!g %item;display noinhibit
setc z0 \032;if !t goto mailinvd
grab z1;if !%z1||Iz0,z1||!t goto mailinvd
grab z3;if Iz0,z3||!t goto mailinvd
pat;put message\r
pat 0c "carefully???" y\r
pat 1c "to ask for customer support" n\r
pat 4i "leave a message? ";wait -f20
pat;put y;pat 0c "To " "@putv z1;put \r"
pat 1i "01:";wait -f30
mailnext:
pat;if %z3 putv z3;put \r
else put " \r"
pat 0i \n;wait -f10
pat;pat 0i ":";wait -f10
grab z3;if t ife !Iz0,z3 goback mailnext;closetx
pat;put \r;pat 0i "Done?";wait -f10
pat;put y;pat 0i "Yam-Host(C):";wait -f30
del %item
return
mailinvd:
echoc "Improper File - %item"
if t nolog closetx
del %item
return